#!/usr/bin/perl
# (c) Ruslan Mikhaylenko mirusnet@gmail.com 09.2011
#
$|=1;
my @alphabet	= (a .. z);


while (true) {printf " %s\r", uc($alphabet[rand(scalar(@alphabet))]); sleep 1;}
